home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / FREBOOTV2 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  133b  |  3 lines
  1. 9990 FORI=1TO9:POKE630+I,13:NEXT:POKE632,82:POKE633,85:POKE634,78:POKE198,9:SYSC(20):GOTO9999
  2. 12010 GOSUB16950:DD=D(3):UD=D(4):DT=0:CS$="":PRINT:IFND=0ANDFRE(0)<4000THEN9990
  3.